home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / pslabel.sda / PSLABEL / EPS V2.1 (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  10KB  |  317 lines
  1. 10 REM  PRINT SHOP LABEL MAKER V2.0
  2. 20 REM  BY BRIAN HEYBOER  7/5/86
  3. 30 REM  THIS PROGRAM IS PUBLIC DOMAIN.
  4. 40 IFLC THEN SYS 828:GOTO640
  5. 45 IFLZ THENSYS828:GOTO3770
  6. 50 POKE55,0:POKE56,156:CLR
  7. 60 POKE53280,1:POKE53281,1:J=0
  8. 70 FOR I=828TO957:READ A:POKE I,A:NEXT
  9. 80 PRINT"[149][147]  [208]RINT [211]HOP [199]RAPHICS [204]ABEL [205]AKER [214]2.0
  10. 90 [153]"  PEEKY PEEKRIAN LEFT$EYBOER - (null)-(null)INK RIGHT$STR$: (null)(null)(null)ASCVAL(null)
  11. 100 PRINT"[144][212]HIS PROGRAM PRINTS STANDARD ONE INCH"
  12. 110 PRINT"MAILING LABELS USING [208]RINT [211]HOP [199]RAPHICS
  13. 120 [153]"ONAND TEXT OF YOUR CHOICE ON AN VALPSON OR
  14. 130 PRINT"COMPATABLE PRINTER.
  15. 140 [153]"(null)OW COMPATABLE WITH (null)RINT (null)HOP LENOMPANION
  16. 150 PRINT"[212]HIS PROGRAM IS PUBLIC DOMAIN.
  17. 160 [153]"(null)RINT (null)HOP IS A TRADEMARK OF PEEKRODERBUND.
  18. 170 PRINT"[197]PSON IS A TRADEMARK OF [197]PSON [193]MERICA.
  19. 180 [153]"CLR      (null)RESS ANY KEY WHEN READY.
  20. 190 GETX$:IFX$=""THEN190
  21. 200 DIM L$(6),F(6),FS$(9)
  22. 205 DIML1$(100),P1(100),L2$(100),P2(100),L3$(100),P3(100),L4$(100)
  23. 206 DIMP4(100),L5$(100),P5(100),L6$(100),P6(100),L7$(100),P7(100)
  24. 210 E$=CHR$(27)
  25. 220 FS$(0)=E$+CHR$(69)
  26. 230 FS$(1)=FS$(0)+CHR$(14)
  27. 240 FS$(2)=CHR$(15)
  28. 250 FS$(3)=FS$(0)+E$+CHR$(83)+CHR$(0)
  29. 260 FS$(4)=FS$(0)+E$+CHR$(83)+CHR$(1)
  30. 270 FS$(5)=FS$(0)+E$+CHR$(52)
  31. 280 FS$(6)=FS$(1)+FS$(5)
  32. 290 FS$(7)=FS$(2)+E$+CHR$(52)
  33. 300 FS$(8)=FS$(3)+FS$(5)
  34. 310 FS$(9)=FS$(4)+FS$(5)
  35. 320 EL$=E$+CHR$(84)+E$+CHR$(53)+CHR$(18)+E$+CHR$(70)+CHR$(10)+CHR$(13)
  36. 330 PRINT"[149][147]    [208]RINT [211]HOP [199]RAPHICS [204]ABEL [205]AKER":PRINT
  37. 340 PRINT"[199]RAPHIC [198]ILE [206]AME ($ FOR [196]IRECTORY)
  38. 350 LC[178]0:[133] "  $CMDCMDCMD";G$:[139] G$[178]"$"[167][141]730
  39. 360 [153]"STOPRIGHT$NPUT (null)ABEL (null)EXT.  ASCOR BEST RESULTS,"
  40. 370 [153]"SKIP ALTERNATE LINES. ((null)SE 1,3,5,7 FOR
  41. 380 PRINT"FOUR LINE LABELS AND 2,4,6 FOR THREE
  42. 390 [153]"LINES.  (null)INES WITH COMMAS OR COLONS MUST
  43. 400 PRINT"[145]BE IN QUOTES.
  44. 410 [153]"ATNVAILABLE ASCONTS:
  45. 420 PRINT"   0 = [206]ORMAL
  46. 430 [153]"   1 = VALXPANDED
  47. 440 PRINT"   2 = [195]ONDENSED
  48. 450 [153]"   3 = (null)UPERSCRIPT
  49. 460 PRINT"   4 = [211]UBSCRIPT
  50. 470 [153]"   5 = RIGHT$TALIC
  51. 480 PRINT"   6 = [197]XPANDED [201]TALIC
  52. 490 [153]"   7 = LENONDENSED RIGHT$TALIC
  53. 500 PRINT"   8 = [211]UPERSCRIPT [201]TALIC
  54. 510 [153]"   9 = (null)UBSCRIPT RIGHT$TALIC
  55. 512 PRINT"[208]RESS ([198]1) FOR [204]ABEL [198]ILE               OR ANY KEY FOR INSTANT LABEL."
  56. 513 GETX$:IFX$=""THEN513
  57. 514 IFX$=CHR$(133)THEN2000
  58. 515 PRINT"[145][145]                         "
  59. 516 PRINT"[145]                              [145][145]"
  60. 520 F$="0":FOR A=0TO6:L$(A)=" ":PRINT"[212]EXT FOR LINE "A+1;:INPUT"";L$(A)
  61. 530 PRINT"[198]ONT FOR LINE "A+1"  "F$"[157][157]";:INPUT"[157]";F$:F(A)=VAL(F$)
  62. 540 IFF(A)>9THEN530
  63. 550 NEXT
  64. 560 NL$=" ":INPUT"[206]UMBER OF LABELS   1[157][157][157]";NL$:NL=VAL(NL$)
  65. 570 IF NL=0THEN910
  66. 580 IFLCTHEN640
  67. 590 OPEN8,8,8,G$+",P,R":GET#8,A1$,A2$:CLOSE8
  68. 600 IFSTTHENLC=0:PRINT"     [193] [196]ISK [197]RROR HAS OCCURED.":GOSUB880:GOTO590
  69. 610 IFA1$=""AND(A2$<>"X"ORA2$<>"[216]")THEN630
  70. 620 PRINT"    [206]OT A [208]RINT [211]HOP [198]ILE!":GOSUB880:GOTO590
  71. 630 POKE829,ASC(A2$):LC=-1:LOAD G$,8,1
  72. 640 IFFOTHEN670
  73. 650 FO=-1:OPEN5,4,8
  74. 660 OPEN4,4,5:PRINT#4,CHR$(27);CHR$(65);CHR$(8)
  75. 670 FOR E=1 TO NL
  76. 680 FOR A=0TO6:PRINT#4,CHR$(27);CHR$(76);CHR$(88);CHR$(0);:C=21760+(A*88):D=C+87
  77. 690 FOR B=CTOD:PRINT#4,CHR$(PEEK(B));:NEXT
  78. 700 PRINT#4," "FS$(F(A));:PRINT#5,L$(A):PRINT#4,EL$:NEXT
  79. 710 PRINT#5,CHR$(10);CHR$(10)
  80. 720 NEXT:GOTO560
  81. 730 OPEN8,8,0,"$0":N$=CHR$(0):X$=N$
  82. 740 GET#8,A$,A$,A$,A$,A$,A$
  83. 750 GET#8,A$:IF A$=""THEN770
  84. 760 X$=X$+A$:GOTO750
  85. 770 PRINT""TAB(7);X$"[144]"
  86. 780 GETA$:IFA$=""THEN840
  87. 790 PRINT"[156]     [208]RESS [210][197][212][213][210][206] TO [211]TOP [196]IRECTORY
  88. 800 [153]"      (null)RESS ATNNY (null)THER TO LENONTINUESTOP
  89. 810 GETA$:IFA$=""THEN810
  90. 820 IFA$=CHR$(13)GOTO880
  91. 830 FORI=1TO2:PRINT"[145]                                     [145]":NEXT:PRINT"[145][145]"
  92. 840 GET#8,A$,A$:IF A$=""THEN CLOSE 8:GOTO880
  93. 850 GET#8,A$,B$:B$=STR$(ASC(A$+N$)+ASC(B$+N$)*256)
  94. 860 GET#8,A$:IF A$=""THEN PRINTTAB(5)B$:B$="":GOTO780
  95. 870 B$=B$+A$:GOTO860
  96. 880 CLOSE8:PRINT"[199]RAPHIC [198]ILE [206]AME ($ FOR [196]IRECTORY)
  97. 890 [133] "  $CMDCMDCMD";G$:[139] G$[178]"$"[167][141]730:[137]880
  98. 900 [142]
  99. 910 [153]"ATN NEW LABEL ((null)/(null))";
  100. 920 [133]"  (null)CMDCMDCMD";A$:A$[178][200](A$,1):[139]A$[178]"Y"[176]A$[178]"(null)"[167]950
  101. 930 [139] A$[178]"N"[176]A$[178]"(null)"[167]990
  102. 940 [137]920
  103. 950 [153]"(null)AME CHR$RAPHIC ((null)/(null))";
  104. 960 [133]"  (null)CMDCMDCMD";A$:A$[178][200](A$,1):[139]A$[178]"Y"[176]A$[178]"(null)"[167]360
  105. 970 [139] A$[178]"N"[176]A$[178]"(null)"[167]340
  106. 980 [137]960
  107. 990 [139] FO [167] [152]4,E$;[199](64):[160]4:[160]5:[128]
  108. 1000 [131] 169,88,141,106,3,24,105,2,141,93,3,169,85,141,123
  109. 1010 [131] 3,169,11,141,189,3,169,0,141,105,3,141,122,3,162
  110. 1020 [131] 44,157,59,90,202,208,250,160,7,162,77,169,0,24,94
  111. 1030 [131] 0,88,106,202,202,202,202,202,202,202,202,202,202,202,16
  112. 1040 [131] 238,153,96,87,136,16,228,238,105,3,208,3,238,106,3
  113. 1050 [131] 173,105,3,205,189,3,208,21,24,105,77,141,105,3,144
  114. 1060 [131] 4,238,106,3,24,105,11,141,189,3,201,115,240,17,169
  115. 1070 [131] 8,24,109,122,3,141,122,3,144,178,238,123,3,76,97
  116. 1080 [131] 3,173,123,3,201,87,208,165,96,11
  117. 1090 [143] FILE SECTION BY MIKE HOEFLE
  118. 2000 [151]53280,5:[151]53281,5
  119. 2010 [153]"LOAD    (null)ABEL (null)AKER ASCILE"
  120. 2020 [153]"    USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  121. 2030 [153]"[1] VALNTER   ASCILE STR$ATA"
  122. 2035 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  123. 2040 [153]"[2] STR$ISPLAY ASCILE STR$ATA"
  124. 2045 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  125. 2050 [153]"[3] (null)RINT   ATNLL  ASCILES"
  126. 2055 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  127. 2060 [153]"[4] (null)TORE ASCILE TO STR$ISK"
  128. 2065 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  129. 2070 [153]"[5] (null)EAD  ASCILE ON STR$ISK"
  130. 2075 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  131. 2080 [153]"[6] (null)RINT  ASCILE BY #"
  132. 2085 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  133. 2090 [153]"[7] STR$ELETE ASCILE BY #"
  134. 2095 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  135. 2100 [153]"[8] (null)RINT  ASCILE (null)IST"
  136. 2105 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  137. 2110 [153]"[9] RIGHT$NSTANT  (null)ABEL"
  138. 2115 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  139. 2120 [153]"    # ?"
  140. 2130 [161]N$:[139]N$[178]""[167]2130
  141. 2150 [139]N$[179]"1"[176]N$[177]"9"[167]2130
  142. 2160 N[178][197](N$):[145]N[137]2170,2450,3600,2700,2800,2900,3000,3300,3900
  143. 2170 [151]53280,14:[151]53281,14
  144. 2175 [153]"LOAD(null)ABEL #";J[170]1
  145. 2180 [153]"STOP   0 = (null)ORMAL      ((null)INES WITH : OR , )STOP"
  146. 2190 [153]"   1 = VALXPANDED    ((null)UST BE IN (null)UOTES.)STOP"
  147. 2200 [153]"   2 = LENONDENSED
  148. 2210 PRINT"   3 = [211]UPERSCRIPT
  149. 2220 [153]"   4 = (null)UBSCRIPT   (VALNTER M FOR (null)ENU  )STOP"
  150. 2230 [153]"   5 = RIGHT$TALIC      (IN THE 1ST LINE.  )STOP"
  151. 2240 [153]"   6 = VALXPANDED RIGHT$TALIC
  152. 2250 PRINT"   7 = [195]ONDENSED [201]TALIC
  153. 2260 [153]"   8 = (null)UPERSCRIPT RIGHT$TALIC
  154. 2270 PRINT"   9 = [211]UBSCRIPT [201]TALIC"
  155. 2280 INPUT"[212]EXT FOR LINE 1";L1$(J)
  156. 2285 IFL1$(J)="M"THENL1$(J)="":GOTO2000
  157. 2290 INPUT"[198]ONT FOR LINE 1  0[157][157][157]";P1(J)
  158. 2300 INPUT"[212]EXT FOR LINE 2";L2$(J)
  159. 2310 INPUT"[198]ONT FOR LINE 2  0[157][157][157]";P2(J)
  160. 2320 INPUT"[212]EXT FOR LINE 3";L3$(J)
  161. 2330 INPUT"[198]ONT FOR LINE 3  0[157][157][157]";P3(J)
  162. 2340 INPUT"[212]EXT FOR LINE 4";L4$(J)
  163. 2350 INPUT"[198]ONT FOR LINE 4  0[157][157][157]";P4(J)
  164. 2360 INPUT"[212]EXT FOR LINE 5";L5$(J)
  165. 2370 INPUT"[198]ONT FOR LINE 5  0[157][157][157]";P5(J)
  166. 2380 INPUT"[212]EXT FOR LINE 6";L6$(J)
  167. 2390 INPUT"[198]ONT FOR LINE 6  0[157][157][157]";P6(J)
  168. 2400 INPUT"[212]EXT FOR LINE 7";L7$(J)
  169. 2410 INPUT"[198]ONT FOR LINE 7  0[157][157][157]";P7(J)
  170. 2420 J=J+1:GOTO2170
  171. 2450 N=0:X$=""
  172. 2460 PRINT"[147]   [196]ISPLAY [204]ABEL [198]ILE "N+1""
  173. 2470 PRINT"[212]EXT FOR LINE 1 ";L1$(N)
  174. 2480 PRINT"[158][198]ONT FOR LINE 1 ";P1(N)
  175. 2490 PRINT"[212]EXT FOR LINE 2 ";L2$(N)
  176. 2500 PRINT"[158][198]ONT FOR LINE 2 ";P2(N)
  177. 2510 PRINT"[212]EXT FOR LINE 3 ";L3$(N)
  178. 2520 PRINT"[158][198]ONT FOR LINE 3 ";P3(N)
  179. 2530 PRINT"[212]EXT FOR LINE 4 ";L4$(N)
  180. 2540 PRINT"[158][198]ONT FOR LINE 4 ";P4(N)
  181. 2550 PRINT"[212]EXT FOR LINE 5 ";L5$(N)
  182. 2560 PRINT"[158][198]ONT FOR LINE 5 ";P5(N)
  183. 2570 PRINT"[212]EXT FOR LINE 6 ";L6$(N)
  184. 2580 PRINT"[158][198]ONT FOR LINE 6 ";P6(N)
  185. 2590 PRINT"[212]EXT FOR LINE 7 ";L7$(N)
  186. 2600 PRINT"[158][198]ONT FOR LINE 7 ";P7(N)
  187. 2605 PRINT"[193]NY KEY OR M[146]ENU."
  188. 2610 GETX$:IFX$=""THEN2610
  189. 2620 IFX$="M"THEN2000
  190. 2630 IFN+1>J-1THEN2450
  191. 2640 N=N+1:GOTO2460
  192. 2700 IFJ<1THENPRINT"[147]** [206]OTHING TO [211]AVE! **":FORT=1TO2000:NEXT:GOTO2000
  193. 2710 PRINT"[147][208]LEASE WAIT WHILE SAVING TO DISK."
  194. 2720 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  195. 2730 OPEN1,8,1,"@0:GLF,S,W":PRINT#1,J
  196. 2740 FORX=0TOJ-1
  197. 2750 PRINT#1,L1$(X):PRINT#1,L2$(X):PRINT#1,L3$(X):PRINT#1,L4$(X)
  198. 2755 PRINT#1,L5$(X):PRINT#1,L6$(X):PRINT#1,L7$(X)
  199. 2760 PRINT#1,P1(X):PRINT#1,P2(X):PRINT#1,P3(X):PRINT#1,P4(X)
  200. 2765 PRINT#1,P5(X):PRINT#1,P6(X):PRINT#1,P7(X)
  201. 2770 NEXT:CLOSE1:GOTO2000
  202. 2800 IFJ>0THENPRINT"[147]** [196]ATA IN MEMORY! **":FORT=1TO2000:NEXT:GOTO2000
  203. 2810 PRINT"[147][208]LEASE WAIT WHILE LOADING FILE."
  204. 2820 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  205. 2830 OPEN1,8,0,"GLF,S,R":INPUT#1,J
  206. 2835 FORX=0TOJ-1
  207. 2840 GET#1,A$:IFA$=CHR$(13)THEN2843
  208. 2841 L1$(X)=L1$(X)+A$:GOTO2840
  209. 2843 GET#1,A$:IFA$=CHR$(13)THEN2845
  210. 2844 L2$(X)=L2$(X)+A$:GOTO2843
  211. 2845 GET#1,A$:IFA$=CHR$(13)THEN2847
  212. 2846 L3$(X)=L3$(X)+A$:GOTO2845
  213. 2847 GET#1,A$:IFA$=CHR$(13)THEN2849
  214. 2848 L4$(X)=L4$(X)+A$:GOTO2847
  215. 2849 GET#1,A$:IFA$=CHR$(13)THEN2851
  216. 2850 L5$(X)=L5$(X)+A$:GOTO2849
  217. 2851 GET#1,A$:IFA$=CHR$(13)THEN2853
  218. 2852 L6$(X)=L6$(X)+A$:GOTO2851
  219. 2853 GET#1,A$:IFA$=CHR$(13)THEN2860
  220. 2854 L7$(X)=L7$(X)+A$:GOTO2853
  221. 2860 INPUT#1,P1(X):INPUT#1,P2(X):INPUT#1,P3(X):INPUT#1,P4(X)
  222. 2865 INPUT#1,P5(X):INPUT#1,P6(X):INPUT#1,P7(X)
  223. 2870 NEXT:CLOSE1:GOTO2000
  224. 2900 POKE53280,6:POKE53281,6
  225. 2905 N$="":PRINT"[147][208]LEASE ENTER FILE NUMBER TO PRINT."
  226. 2910 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  227. 2920 INPUT"[198]ILE [206]UMBER:";N$
  228. 2930 IFN$=""THEN2000
  229. 2940 IFN$="0"THEN2000
  230. 2950 N=VAL(N$):N=N-1
  231. 2960 L$(0)=L1$(N):L$(1)=L2$(N):L$(2)=L3$(N):L$(3)=L4$(N):L$(4)=L5$(N)
  232. 2970 L$(5)=L6$(N):L$(6)=L7$(N):F(0)=P1(N):F(1)=P2(N):F(2)=P3(N):F(3)=P4(N)
  233. 2980 F(4)=P5(N):F(5)=P6(N):F(6)=P7(N)
  234. 2990 POKE53280,1:POKE53281,1:GOTO560
  235. 3000 POKE53280,8:POKE53281,8
  236. 3005 X=0:PRINT"[147][208]LEASE ENTER FILE NUMBER TO [196]ELETE:"
  237. 3010 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  238. 3020 INPUT"[198]ILE [206]UMBER ";X
  239. 3025 X=X-1:IFX<0THEN2000
  240. 3030 PRINT"[212]EXT FOR LINE 1 ";L1$(X)
  241. 3040 PRINT"[158][198]ONT FOR LINE 1 ";P1(X)
  242. 3050 PRINT"[212]EXT FOR LINE 2 ";L2$(X)
  243. 3060 PRINT"[158][198]ONT FOR LINE 2 ";P2(X)
  244. 3070 PRINT"[212]EXT FOR LINE 3 ";L3$(X)
  245. 3080 PRINT"[158][198]ONT FOR LINE 3 ";P3(X)
  246. 3090 PRINT"[212]EXT FOR LINE 4 ";L4$(X)
  247. 3100 PRINT"[158][198]ONT FOR LINE 4 ";P4(X)
  248. 3110 PRINT"[212]EXT FOR LINE 5 ";L5$(X)
  249. 3120 PRINT"[158][198]ONT FOR LINE 5 ";P5(X)
  250. 3130 PRINT"[212]EXT FOR LINE 6 ";L6$(X)
  251. 3140 PRINT"[158][198]ONT FOR LINE 6 ";P6(X)
  252. 3150 PRINT"[212]EXT FOR LINE 7 ";L7$(X)
  253. 3160 PRINT"[158][198]ONT FOR LINE 7 ";P7(X)
  254. 3170 PRINT"[196]ELETE (Y/N)";:INPUTX$
  255. 3180 IFX$<>"Y"THEN2000
  256. 3190 FORI=XTOJ-1
  257. 3200 L1$(I)=L1$(I+1):L2$(I)=L2$(I+1):L3$(I)=L3$(I+1):L4$(I)=L4$(I+1)
  258. 3205 L5$(I)=L5$(I+1):L6$(I)=L6$(I+1):L7$(I)=L7$(I+1)
  259. 3210 P1(I)=P1(I+1):P2(I)=P2(I+1):P3(I)=P3(I+1):P4(I)=P4(I+1)
  260. 3220 P5(I)=P5(I+1):P6(I)=P6(I+1):P7(I)=P7(I+1)
  261. 3230 NEXT:L1$(I)="":L2$(I)="":L3$(I)="":L4$(I)="":L5$(I)="":L6$(I)="":L7$(I)=""
  262. 3240 P1(I)=0:P2(I)=0:P3(I)=0:P4(I)=0:P5(I)=0:P6(I)=0:P7(I)=0:J=J-1
  263. 3250 GOTO2000
  264. 3300 IFJ<1THENPRINT"[147]** [206]OTHING TO [208]RINT! **":FORT=1TO2000:NEXT:GOTO2000
  265. 3310 PRINT"[147][208]LEASE WAIT WHILE PRINTING FILE."
  266. 3320 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  267. 3330 OPEN3,4,7
  268. 3340 FORI=0TOJ-1
  269. 3350 PRINT#3,"[198]ILE # ";I+1:PRINT#3
  270. 3360 PRINT#3,"[212]EXT FOR LINE 1 ";L1$(I)
  271. 3370 PRINT#3,"[198]ONT FOR LINE 1 ";P1(I)
  272. 3380 PRINT#3,"[212]EXT FOR LINE 2 ";L2$(I)
  273. 3390 PRINT#3,"[198]ONT FOR LINE 2 ";P2(I)
  274. 3400 PRINT#3,"[212]EXT FOR LINE 3 ";L3$(I)
  275. 3410 PRINT#3,"[198]ONT FOR LINE 3 ";P3(I)
  276. 3420 PRINT#3,"[212]EXT FOR LINE 4 ";L4$(I)
  277. 3430 PRINT#3,"[198]ONT FOR LINE 4 ";P4(I)
  278. 3440 PRINT#3,"[212]EXT FOR LINE 5 ";L5$(I)
  279. 3450 PRINT#3,"[198]ONT FOR LINE 5 ";P5(I)
  280. 3460 PRINT#3,"[212]EXT FOR LINE 6 ";L6$(I)
  281. 3470 PRINT#3,"[198]ONT FOR LINE 6 ";P6(I)
  282. 3480 PRINT#3,"[212]EXT FOR LINE 7 ";L7$(I)
  283. 3490 PRINT#3,"[198]ONT FOR LINE 7 ";P7(I)
  284. 3500 PRINT#3
  285. 3510 NEXT
  286. 3520 PRINT#3,:CLOSE3:GOTO2000
  287. 3600 POKE53280,3:POKE53281,3
  288. 3605 PRINT"[147][201]S THE [199]RAPHIC DISK IN THE [196]RIVE?"
  289. 3610 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  290. 3620 PRINT"[201]S THE [208]RINTER READY TO [208]RINT?"
  291. 3630 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  292. 3640 PRINT"(Y/N)
  293. 3650 [161]X$:[139]X$[178]""[167]3650
  294. 3660 [139]X$[179][177]"Y"[167]2000
  295. 3670 [153]"LOAD(null)LEASE WAIT WHILE PRINTING FILE."
  296. 3680 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":X[178]0
  297. 3690 [139]X[177]J[171]1[167]3860
  298. 3700 L$(0)[178]L1$(X):L$(1)[178]L2$(X):L$(2)[178]L3$(X):L$(3)[178]L4$(X):L$(4)[178]L5$(X)
  299. 3710 L$(5)[178]L6$(X):L$(6)[178]L7$(X):F(0)[178]P1(X):F(1)[178]P2(X):F(2)[178]P3(X):F(3)[178]P4(X)
  300. 3715 [139]X[177]0[167]3800
  301. 3720 [159]8,8,8,G$[170]",P,R":[161]#8,A1$,A2$:[160]8
  302. 3730 [139]ST[167]LZ[178]0:[153]"     ATN STR$ISK VALRROR HAS OCCURED.":[141]880:[137]3720
  303. 3740 [139]A1$[178]""[175](A2$[179][177]"X"[176]A2$[179][177]"(null)")[167]3760
  304. 3750 [153]"    (null)OT A (null)RINT (null)HOP ASCILE!":[141]880:[137]3720
  305. 3760 [151]829,[198](A2$):LC[178]0:LZ[178][171]1:[147] G$,8,1
  306. 3770 [139]FO[167]3800
  307. 3780 FO[178][171]1:[159]5,4,8
  308. 3790 [159]4,4,5:[152]4,[199](27);[199](65);[199](8)
  309. 3800 [129]A[178]0[164]6
  310. 3810 [152]4,[199](27);[199](76);[199](88);[199](0);:C[178]21760[170](A[172]88):D[178]C[170]87
  311. 3820 [129] B[178]C[164]D:[152]4,[199]([194](B));:[130]
  312. 3830 [152]4," "FS$(F(A));:[152]5,L$(A):[152]4,EL$:[130]
  313. 3840 [152]5,[199](10);[199](10)
  314. 3850 X[178]X[170]1:[137]3690
  315. 3860 [160]4:[160]5:FO[178]0:[137]2000
  316. 3900 [160]4:[159]4,4:[152]4,E$;[199](64):[160]4:[160]5:FO[178]0:LC[178]0:LZ[178]0:[137]10
  317.